home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 2004 #11
/
Amiga Plus CD - 2004 - No. 11.iso
/
AmiSoft
/
Biz
/
swood
/
FW_Scripts.lha
/
FW_Scripts
/
ComplexShape
/
ObjectLoad.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
2004-08-29
|
514b
|
22 lines
/* FinalWriter AREXX macro */
/* $VER: ObjectLoad 1.2 */
/* Reload objects saved with ObjectSave.rexx */
Options Results
ADDRESS COMMAND 'RequestFile >ENV:File Title="Select object to load" Pattern="#?" NOICONS Pubscreen="FinalWriterPubScreen"'
IF rc ~= 0 THEN EXIT
IF OPEN("Env", "Env:File", "R") THEN DO
filename = READLN("Env")
CALL CLOSE("Env")
END
filename = STRIP(filename,'B','"')
IF EXISTS(filename) THEN DO
ADDRESS COMMAND 'Copy $file CLIPS:0 CLONE'
GraphicTool
Paste
END